home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1100.dms / q1100.adf / TeleBASE / rexx / call.rexx next >
OS/2 REXX Batch file  |  1997-04-10  |  843b  |  25 lines
  1. /* Accessing incoming call data */
  2.  
  3. address tbase
  4.  
  5. GETVAR                              /* 
  6.                                     ** Fills all rexx variables with 
  7.                                     ** data from TeleBASE
  8.                                     */
  9.  
  10. callnum = numcalls                  /* 
  11.                                     ** Set the current 'callnum', to the
  12.                                     ** latest one available.
  13.                                     */
  14.  
  15. SENDVAR                             /* Tell TeleBASE to make it current */
  16. GETVAR                              /* Get new data from TeleBASE       */
  17.   say 'C_NAME is ' C_NAME
  18.   say 'C_DATA is ' C_DATA
  19.   say 'C_TIME is ' C_TIME  
  20.   say 'C_DATE is ' C_DATE
  21.   say 'C_RAW is '  C_RAW
  22.   say 'C_NUM is '  C_NUM
  23.   say 'NumCalls is ' numcalls
  24.   say 'Caller number is ' callnum
  25.